perm filename FORLSP.LAP[4,LMM] blob
sn#040781 filedate 1973-05-06 generic text, type T, neo UTF8
(DEFPROP FORLSPFNS (FORLSPFNS (SPECIAL *IF'SL) DEFLIST RPLACNODE MAKEMAKECOPY REMOVEIS RECORD RECDO REMOVEOF COM→
POSE COMPOSE1 COMPOSE2 COMPOSE3 COMPOSE4 #CONS #REPLACE VARNAME GONEXTN PLUSSIGNTESTSET PLUSSIGNPV INITL PLUSSIG→
NNEXT *FOR | CONDIT SETIT NEGATE *IF THENCLAUSE QUOTEIT1 QUOTEIT2 FOR IF REPLACE FULLEXPANSION DEFAULT GSET ADVI→
SE ADVISE1 SAVEFN1 ARGLIST NARGS FIRSTN) VALUE)
(LAP DEFLIST SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPN 1. TAG6)
(MOVE 1. 0. P)
(JRST 0. TAG2)
TAG6 (MOVE 3. -1. P)
(HLRZ@ 2. -2. P)
(HRRZ@ 2. 2.)
(HLRZ@ 2. 2.)
(HLRZ@ 1. -2. P)
(HLRZ@ 1. 1.)
(CALL 3. (E PUTPROP) S)
(MOVE 2. 0. P)
(HLRZ@ 1. -2. P)
(HLRZ@ 1. 1.)
(CALL 2. (E CONS) S)
(HRRZ@ 2. -2. P)
(MOVEM 1. 0. P)
(MOVEM 2. -2. P)
(JRST 0. TAG1)
TAG2 (SUB P (C 3. 0. 3. 0.))
(POPJ P)
NIL
(LAP RPLACNODE SUBR)
(HLRZ@ 3. 2.)
(HRLM@ 3. 1.)
(HRRZ@ 3. 2.)
(HRRM@ 3. 1.)
(POPJ P)
NIL
(LAP MAKEMAKECOPY SUBR)
(PUSH P 1.)
(MOVEI 2. (QUOTE (LIST COPY)) S)
(HLRZ@ 1. 1.)
(CALL 2. (E MEMQ) S)
(JUMPE 1. TAG2)
(MOVE 1. 0. P)
(JRST 0. TAG1)
TAG2 (HLRZ@ 1. 0. P)
(CAIE 1. (QUOTE APPEND) S)
(JRST 0. TAG3)
(HRRZ@ 1. 0. P)
(HRRZ@ 1. 1.)
(JUMPE 1. TAG3)
(MOVE 1. 0. P)
(JRST 0. TAG1)
TAG3 (MOVEI 1. (QUOTE NIL))
(CALL 1. (E NCONS) S)
(MOVE 2. 0. P)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE APPEND) S)
(CALL 2. (E XCONS) S)
TAG1 (SUB P (C 1. 0. 1. 0.))
(POPJ P)
NIL
(LAP REMOVEIS SUBR)
(PUSH P 1.)
(JUMPE 1. TAG1)
(HLRZ@ 1. 1.)
(CAIE 1. (QUOTE IS) S)
(JRST 0. TAG2)
(HRRZ@ 1. 0. P)
(CALL 1. (E REMOVEIS) S)
(JRST 0. TAG1)
TAG2 (HLRZ@ 1. 0. P)
(CAIE 1. (QUOTE =) S)
(JRST 0. TAG3)
(HRRZ@ 1. 0. P)
(CALL 1. (E REMOVEIS) S)
(JRST 0. TAG1)
TAG3 (HLRZ@ 1. 0. P)
(PUSH P 1.)
(HRRZ@ 1. -1. P)
(CALL 1. (E REMOVEIS) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
TAG1 (SUB P (C 1. 0. 1. 0.))
(POPJ P)
NIL
(LAP RECORD SUBR)
(PUSH P 1.)
(PUSH P 2.)
(MOVEI 3. (QUOTE RECORD) S)
(CALL 3. (E PUTPROP) S)
(MOVE 1. 0. P)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE QUOTE) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE (REMOVEIS RECORDVAR)) S)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE COMPOSE) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE (RECORDVAR)) S)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE LAMBDA) S)
(CALL 2. (E XCONS) S)
(MOVEI 3. (QUOTE MACRO) S)
(MOVE 2. 1.)
(MOVE 1. -1. P)
(CALL 3. (E PUTPROP) S)
(MOVEI 2. (QUOTE X) S)
(MOVE 1. 0. P)
(CALL 2. (E RECDO) S)
(MOVEI 1. (QUOTE NIL))
(SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP RECDO SUBR)
(PUSH P 1.)
(PUSH P 2.)
(JUMPE 1. TAG1)
(CALL 1. (E ATOM) S)
(JUMPN 1. TAG2)
(MOVE 1. 2.)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE CAR) S)
(CALL 2. (E XCONS) S)
(MOVE 2. 1.)
(HLRZ@ 1. -1. P)
(CALL 2. (E RECDO) S)
(MOVE 1. 0. P)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE CDR) S)
(CALL 2. (E XCONS) S)
(MOVE 2. 1.)
(HRRZ@ 1. -1. P)
(CALL 2. (E RECDO) S)
(JRST 0. TAG1)
TAG2 (MOVE 1. 0. P)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE QUOTE) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE (QUOTE X)) S)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE (COND ((NULL (CDDR (SETQ RECORDFIELDVAR (REMOVEOF RECORDFIELDVAR)))) (CADR RECORDFIELDVA→
R)) (T (CDR RECORDFIELDVAR)))) S)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE SUBST) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE (RECORDFIELDVAR)) S)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE LAMBDA) S)
(CALL 2. (E XCONS) S)
(MOVEI 3. (QUOTE MACRO) S)
(MOVE 2. 1.)
(MOVE 1. -1. P)
(CALL 3. (E PUTPROP) S)
TAG1 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP REMOVEOF SUBR)
(PUSH P 1.)
(JUMPE 1. TAG1)
(HLRZ@ 1. 1.)
(CAIE 1. (QUOTE OF) S)
(JRST 0. TAG2)
(HRRZ@ 1. 0. P)
(CALL 1. (E REMOVEOF) S)
(JRST 0. TAG1)
TAG2 (HLRZ@ 1. 0. P)
(PUSH P 1.)
(HRRZ@ 1. -1. P)
(CALL 1. (E REMOVEOF) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
TAG1 (SUB P (C 1. 0. 1. 0.))
(POPJ P)
NIL
(LAP COMPOSE SUBR)
(PUSH P 1.)
(PUSH P 2.)
(CALL 1. (E CADR) S)
(CAIE 1. (QUOTE FROM) S)
(JRST 0. TAG2)
(HRRZ@ 1. -1. P)
(CALL 1. (E CADR) S)
(CALL 1. (E ATOM) S)
(JUMPE 1. TAG4)
(HRRZ@ 3. -1. P)
(HRRZ@ 3. 3.)
(HLRZ@ 3. 3.)
(MOVE 1. -1. P)
(CALL 3. (E COMPOSE1) S)
(JRST 0. TAG3)
TAG4 (MOVEI 3. (QUOTE COMPOSEVAR) S)
(MOVE 2. 0. P)
(MOVE 1. -1. P)
(CALL 3. (E COMPOSE1) S)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE (COMPOSEVAR)) S)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE LAMBDA) S)
(CALL 2. (E XCONS) S)
(PUSH P 1.)
(HRRZ@ 1. -2. P)
(CALL 1. (E CADR) S)
(CALL 1. (E NCONS) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
TAG3 (JRST 0. TAG1)
TAG2 (MOVEI 3. (QUOTE COMPOSEVAR) S)
(MOVE 2. 0. P)
(MOVE 1. -1. P)
(CALL 3. (E COMPOSE1) S)
TAG1 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP COMPOSE1 SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(CALL 3. (E COMPOSE2) S)
(MOVEM 1. 0. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. 1.)
(JRST 0. TAG4)
TAG5 (MOVE 3. -1. P)
(MOVE 2. -2. P)
(MOVE 1. -3. P)
(CALL 3. (E COMPOSE3) S)
TAG4 (SUB P (C 4. 0. 4. 0.))
(POPJ P)
NIL
(LAP COMPOSE2 SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(MOVE 1. 2.)
(JUMPE 1. TAG1)
(CALL 1. (E ATOM) S)
(JUMPE 1. TAG2)
(MOVE 1. -2. P)
(CALL 2. (E GET) S)
(JUMPE 1. TAG4)
(MOVE 1. -2. P)
(CALL 2. (E GET) S)
(EXCH 3. 1.)
(MOVEI 2. (QUOTE **) S)
(CALL 3. (E SUBST) S)
(CALL 1. (E NCONS) S)
(JRST 0. TAG3)
TAG4 (MOVEI 1. (QUOTE NIL))
TAG3 (JRST 0. TAG1)
TAG2 (HLRZ@ 1. 2.)
(CAIE 1. (QUOTE ID) S)
(JRST 0. TAG7)
(HRRZ@ 1. 2.)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE QUOTE) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(JRST 0. TAG1)
TAG7 (MOVE 1. 0. P)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE CDR) S)
(CALL 2. (E XCONS) S)
(MOVE 3. 1.)
(HRRZ@ 2. -1. P)
(MOVE 1. -2. P)
(CALL 3. (E COMPOSE2) S)
(PUSH P 1.)
(MOVE 1. -1. P)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE CAR) S)
(CALL 2. (E XCONS) S)
(MOVE 3. 1.)
(HLRZ@ 2. -2. P)
(MOVE 1. -3. P)
(CALL 3. (E COMPOSE2) S)
(PUSH P 1.)
(JUMPN 1. TAG15)
(MOVE 1. -1. P)
(JUMPE 1. TAG11)
TAG15 (MOVE 1. 0. P)
(JUMPE 1. TAG19)
(HLRZ@ 1. 1.)
(JRST 0. TAG18)
TAG19 (MOVE 1. -2. P)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE CAR) S)
(CALL 2. (E XCONS) S)
(MOVE 3. 1.)
(HLRZ@ 2. -3. P)
(MOVE 1. -4. P)
(CALL 3. (E COMPOSE1) S)
TAG18 (PUSH P 1.)
(MOVE 1. -2. P)
(JUMPE 1. TAG23)
(HLRZ@ 2. 1.)
(JRST 0. TAG22)
TAG23 (MOVE 1. -3. P)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE CDR) S)
(CALL 2. (E XCONS) S)
(MOVE 3. 1.)
(HRRZ@ 2. -4. P)
(MOVE 1. -5. P)
(CALL 3. (E COMPOSE1) S)
(MOVE 2. 1.)
TAG22 (POP P 1.)
(CALL 2. (E #CONS) S)
(CALL 1. (E NCONS) S)
(JRST 0. TAG10)
TAG11 (MOVEI 1. (QUOTE NIL))
TAG10 (SUB P (C 2. 0. 2. 0.))
TAG1 (SUB P (C 3. 0. 3. 0.))
(POPJ P)
NIL
(LAP COMPOSE3 SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(CALL 1. (E CADR) S)
(CAIE 1. (QUOTE FROM) S)
(JRST 0. TAG2)
(MOVE 1. 3.)
(JRST 0. TAG1)
TAG2 (MOVE 1. -1. P)
(CALL 1. (E COMPOSE4) S)
TAG1 (SUB P (C 3. 0. 3. 0.))
(POPJ P)
NIL
(LAP COMPOSE4 SUBR)
(PUSH P 1.)
(JUMPE 1. TAG1)
(CALL 1. (E ATOM) S)
(JUMPE 1. TAG2)
(MOVEI 2. (QUOTE RECDEFAULT) S)
(MOVE 1. 0. P)
(CALL 2. (E GET) S)
(PUSH P 1.)
(JUMPE 1. TAG4)
(CALL 1. (E COPY) S)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE QUOTE) S)
(CALL 2. (E XCONS) S)
(JRST 0. TAG3)
TAG4 (MOVEI 1. (QUOTE NIL))
TAG3 (SUB P (C 1. 0. 1. 0.))
(JRST 0. TAG1)
TAG2 (HLRZ@ 1. 0. P)
(CALL 1. (E COMPOSE4) S)
(PUSH P 1.)
(HRRZ@ 1. -1. P)
(CALL 1. (E COMPOSE4) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E #CONS) S)
TAG1 (SUB P (C 1. 0. 1. 0.))
(POPJ P)
NIL
(LAP #CONS SUBR)
(PUSH P 1.)
(PUSH P 2.)
(JUMPN 2. TAG2)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE LIST) S)
(CALL 2. (E XCONS) S)
(JRST 0. TAG1)
TAG2 (HLRZ@ 1. 2.)
(CAIE 1. (QUOTE LIST) S)
(JRST 0. TAG4)
(HRRZ@ 2. 2.)
(MOVE 1. -1. P)
(CALL 2. (E CONS) S)
(MOVEI 2. (QUOTE LIST) S)
(CALL 2. (E XCONS) S)
(JRST 0. TAG1)
TAG4 (MOVE 1. 0. P)
(CALL 1. (E NCONS) S)
(MOVE 2. -1. P)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE CONS) S)
(CALL 2. (E XCONS) S)
TAG1 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP #REPLACE SUBR)
(PUSH P 1.)
(PUSH P 2.)
(JUMPN 1. TAG2)
(MOVE 1. 2.)
(JRST 0. TAG1)
TAG2 (JUMPN 2. TAG4)
(JRST 0. TAG1)
TAG4 (HLRZ@ 1. 1.)
(CAIE 1. (QUOTE RPLACA) S)
(JRST 0. TAG6)
(HLRZ@ 1. 2.)
(CAIE 1. (QUOTE RPLACD) S)
(JRST 0. TAG6)
(HRRZ@ 2. 2.)
(HLRZ@ 2. 2.)
(HRRZ@ 1. -1. P)
(HLRZ@ 1. 1.)
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG6)
(HRRZ@ 1. 0. P)
(CALL 1. (E CADR) S)
(CALL 1. (E NCONS) S)
(MOVE 2. -1. P)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE RPLACD) S)
(CALL 2. (E XCONS) S)
(JRST 0. TAG1)
TAG6 (MOVE 1. 0. P)
(CALL 1. (E NCONS) S)
(MOVE 2. -1. P)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE PROG2) S)
(CALL 2. (E XCONS) S)
TAG1 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP *FOR SUBR)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE 1.) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (HLRZ@ 1. -19. P)
(CAIE 1. (QUOTE NEW) S)
(JRST 0. TAG8)
(HRRZ@ 1. -19. P)
(MOVE 2. -1. P)
(MOVEM 1. -19. P)
(HLRZ@ 1. 1.)
(CALL 2. (E CONS) S)
(MOVEM 1. -1. P)
TAG8 (HLRZ@ 1. -19. P)
(HRRZ@ 2. -19. P)
(HRRZ@ 2. 2.)
(HLRZ@ 2. 2.)
(MOVEM 2. -7. P)
(MOVE 2. 1.)
(MOVEM 1. -6. P)
(MOVEI 1. (QUOTE NEXT) S)
(CALL 2. (E |) S)
(MOVE 2. -10. P)
(MOVEM 1. -9. P)
(CALL 2. (E CONS) S)
(MOVEM 1. -10. P)
(HRRZ@ 1. -19. P)
(HLRZ@ 1. 1.)
(CAIE 1. (QUOTE IN) S)
(JRST 0. TAG10)
(MOVE 2. -6. P)
(MOVEI 1. (QUOTE LIST) S)
(CALL 2. (E |) S)
(MOVE 2. -1. P)
(MOVEM 1. -8. P)
(CALL 2. (E CONS) S)
(MOVEM 1. -1. P)
(HLRZ@ 1. 1.)
(MOVE 2. -7. P)
(MOVEM 1. -17. P)
(CALL 2. (E SETIT) S)
(MOVE 2. -14. P)
(CALL 2. (E CONS) S)
(MOVEM 1. -14. P)
(MOVE 1. -17. P)
(CALL 1. (E NEGATE) S)
(PUSH P 1.)
(MOVEI 2. (QUOTE 1.))
(MOVE 1. -19. P)
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG12)
(MOVEI 1. (QUOTE RETURN) S)
(JRST 0. TAG11)
TAG12 (MOVE 1. -19. P)
(CALL 1. (E SUB1) S)
(MOVE 2. 1.)
(MOVEI 1. (QUOTE NEXT) S)
(CALL 2. (E |) S)
TAG11 (CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE GO) S)
(CALL 2. (E XCONS) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E CONDIT) S)
(MOVE 2. -15. P)
(CALL 2. (E CONS) S)
(MOVEM 1. -15. P)
(MOVE 1. -8. P)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE CAR) S)
(CALL 2. (E XCONS) S)
(MOVE 2. 1.)
(MOVE 1. -6. P)
(CALL 2. (E SETIT) S)
(MOVE 2. -15. P)
(CALL 2. (E CONS) S)
(MOVEM 1. -15. P)
(MOVE 1. -8. P)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE CDR) S)
(CALL 2. (E XCONS) S)
(MOVE 2. 1.)
(MOVE 1. -8. P)
(CALL 2. (E SETIT) S)
(MOVE 2. -10. P)
(CALL 2. (E CONS) S)
(MOVEM 1. -10. P)
(JRST 0. TAG9)
TAG10 (HRRZ@ 1. -19. P)
(HLRZ@ 1. 1.)
(CAIE 1. (QUOTE ON) S)
(JRST 0. TAG15)
(MOVE 1. -6. P)
(CALL 1. (E NEGATE) S)
(PUSH P 1.)
(MOVEI 2. (QUOTE 1.))
(MOVE 1. -19. P)
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG17)
(MOVEI 1. (QUOTE RETURN) S)
(JRST 0. TAG16)
TAG17 (MOVE 1. -19. P)
(CALL 1. (E SUB1) S)
(MOVE 2. 1.)
(MOVEI 1. (QUOTE NEXT) S)
(CALL 2. (E |) S)
TAG16 (CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE GO) S)
(CALL 2. (E XCONS) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E CONDIT) S)
(MOVE 2. -15. P)
(CALL 2. (E CONS) S)
(MOVEM 1. -15. P)
(MOVE 1. -6. P)
(MOVE 2. -7. P)
(MOVEM 1. -17. P)
(CALL 2. (E SETIT) S)
(MOVE 2. -14. P)
(CALL 2. (E CONS) S)
(MOVEM 1. -14. P)
(MOVE 1. -6. P)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE CDR) S)
(CALL 2. (E XCONS) S)
(MOVE 2. 1.)
(MOVE 1. -17. P)
(CALL 2. (E SETIT) S)
(MOVE 2. -10. P)
(CALL 2. (E CONS) S)
(MOVEM 1. -10. P)
(JRST 0. TAG9)
TAG15 (MOVEI 2. (QUOTE (:= ←)) S)
(HRRZ@ 1. -19. P)
(HLRZ@ 1. 1.)
(CALL 2. (E MEMB) S)
(JUMPE 1. TAG20)
(HRRZ@ 1. -7. P)
(HLRZ@ 1. 1.)
(CALL 1. (E ATOM) S)
(JUMPE 1. TAG22)
(HRRZ@ 1. -7. P)
(HLRZ@ 1. 1.)
(JRST 0. TAG21)
TAG22 (MOVE 2. -6. P)
(MOVEI 1. (QUOTE MAX) S)
(CALL 2. (E |) S)
(MOVE 2. -1. P)
(CALL 2. (E CONS) S)
(MOVEM 1. -1. P)
(HLRZ@ 1. 1.)
(HRRZ@ 2. -7. P)
(HLRZ@ 2. 2.)
(MOVEM 1. -17. P)
(CALL 2. (E SETIT) S)
(MOVE 2. -14. P)
(CALL 2. (E CONS) S)
(MOVEM 1. -14. P)
(MOVE 1. -17. P)
TAG21 (MOVEM 1. -12. P)
(HRRZ@ 1. -7. P)
(HRRZ@ 1. 1.)
(JUMPE 1. TAG26)
(HRRZ@ 1. -7. P)
(CALL 1. (E CADR) S)
(CALL 1. (E ATOM) S)
(JUMPE 1. TAG28)
(HRRZ@ 2. -7. P)
(HRRZ@ 2. 2.)
(HLRZ@ 2. 2.)
(JRST 0. TAG27)
TAG28 (MOVE 2. -6. P)
(MOVEI 1. (QUOTE INC) S)
(CALL 2. (E |) S)
(MOVE 2. -1. P)
(CALL 2. (E CONS) S)
(HLRZ@ 2. 1.)
(MOVEM 2. -17. P)
(HRRZ@ 2. -7. P)
(HRRZ@ 2. 2.)
(HLRZ@ 2. 2.)
(MOVEM 1. -1. P)
(MOVE 1. -17. P)
(CALL 2. (E SETIT) S)
(MOVE 2. -14. P)
(CALL 2. (E CONS) S)
(MOVE 2. -17. P)
(MOVEM 1. -14. P)
TAG27 (JRST 0. TAG25)
TAG26 (HLRZ@ 1. -7. P)
(CALL 1. (E NUMBERP) S)
(JUMPE 1. TAG31)
(HRRZ@ 1. -7. P)
(HLRZ@ 1. 1.)
(CALL 1. (E NUMBERP) S)
(JUMPE 1. TAG31)
(HRRZ@ 2. -7. P)
(HLRZ@ 2. 2.)
(HLRZ@ 1. -7. P)
(CALL 2. (E *GREAT) S)
(JUMPE 1. TAG31)
(MOVEI 2. (QUOTE -1.))
(JRST 0. TAG25)
TAG31 (MOVEI 2. (QUOTE 1.))
TAG25 (MOVE 1. -6. P)
(MOVEM 2. -13. P)
(HLRZ@ 2. -7. P)
(MOVEM 1. -17. P)
(CALL 2. (E SETIT) S)
(MOVE 2. -14. P)
(CALL 2. (E CONS) S)
(MOVEM 1. -14. P)
(MOVEI 2. (QUOTE (∞ INFINITY)) S)
(MOVE 1. -12. P)
(CALL 2. (E MEMB) S)
(JUMPN 1. TAG37)
(MOVE 1. -13. P)
(CALL 1. (E NUMBERP) S)
(JUMPN 1. TAG40)
(MOVE 1. -13. P)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE MINUSP) S)
(CALL 2. (E XCONS) S)
(PUSH P 1.)
(MOVE 1. -13. P)
(CALL 1. (E NCONS) S)
(MOVE 2. -7. P)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE LESSP) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(PUSH P 1.)
(MOVE 1. -14. P)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE ZEROP) S)
(CALL 2. (E XCONS) S)
(PUSH P 1.)
(MOVE 1. -14. P)
(CALL 1. (E NCONS) S)
(MOVE 2. -8. P)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE GREATERP) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE OR) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE T) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE COND) S)
(CALL 2. (E XCONS) S)
(JRST 0. TAG39)
TAG40 (MOVE 1. -13. P)
(CALL 1. (E MINUSP) S)
(JUMPE 1. TAG42)
(MOVE 1. -12. P)
(CALL 1. (E NCONS) S)
(MOVE 2. -6. P)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE LESSP) S)
(CALL 2. (E XCONS) S)
(JRST 0. TAG39)
TAG42 (MOVE 1. -12. P)
(CALL 1. (E NCONS) S)
(MOVE 2. -6. P)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE GREATERP) S)
(CALL 2. (E XCONS) S)
TAG39 (PUSH P 1.)
(MOVEI 2. (QUOTE 1.))
(MOVE 1. -19. P)
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG46)
(MOVEI 1. (QUOTE RETURN) S)
(JRST 0. TAG45)
TAG46 (MOVE 1. -19. P)
(CALL 1. (E SUB1) S)
(MOVE 2. 1.)
(MOVEI 1. (QUOTE NEXT) S)
(CALL 2. (E |) S)
TAG45 (CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE GO) S)
(CALL 2. (E XCONS) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E CONDIT) S)
(MOVE 2. -15. P)
(CALL 2. (E CONS) S)
(HLRZ@ 2. 1.)
(MOVEM 1. -15. P)
(JUMPN 2. TAG36)
TAG37
TAG36 (MOVE 1. -13. P)
(CALL 1. (E NCONS) S)
(MOVE 2. -6. P)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE PLUS) S)
(CALL 2. (E XCONS) S)
(MOVE 2. 1.)
(MOVE 1. -6. P)
(CALL 2. (E SETIT) S)
(MOVE 2. -10. P)
(CALL 2. (E CONS) S)
(MOVEM 1. -10. P)
(JRST 0. TAG9)
TAG20 (HRRZ@ 1. -19. P)
(HLRZ@ 1. 1.)
(CAIE 1. (QUOTE IS) S)
(JRST 0. TAG49)
(MOVE 2. -7. P)
(MOVE 1. -6. P)
(CALL 2. (E SETIT) S)
(MOVE 2. -15. P)
(CALL 2. (E CONS) S)
(MOVEM 1. -15. P)
(JRST 0. TAG9)
TAG49 (MOVEI 1. (QUOTE "INVALID FOR TYPE") S)
(CALL 1. (E ERROR) S)
TAG9 (HRRZ@ 1. -19. P)
(CALL 1. (E CDDR) S)
(MOVEM 1. -19. P)
TAG2 (HLRZ@ 1. -19. P)
(CAIE 1. (QUOTE AS) S)
(JRST 0. TAG53)
(HRRZ@ 1. -19. P)
(MOVE 2. -10. P)
(MOVEM 1. -19. P)
(MOVE 1. -11. P)
(CALL 2. (E *APPEND) S)
(CLEARM 0. -10. P)
(MOVEM 1. -11. P)
(JRST 0. TAG1)
TAG53 (MOVEI 2. (QUOTE (IF WHEN)) S)
(HLRZ@ 1. -19. P)
(CALL 2. (E MEMQ) S)
(JUMPE 1. TAG54)
(HRRZ@ 1. -19. P)
(HLRZ@ 1. 1.)
(CALL 1. (E NEGATE) S)
(PUSH P 1.)
(MOVE 1. -10. P)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE GO) S)
(CALL 2. (E XCONS) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E CONDIT) S)
(MOVE 2. -15. P)
(CALL 2. (E CONS) S)
(HRRZ@ 2. -19. P)
(HRRZ@ 2. 2.)
(MOVEM 1. -15. P)
(MOVEM 2. -19. P)
(JRST 0. TAG52)
TAG54 (HLRZ@ 1. -19. P)
(CAIE 1. (QUOTE UNTIL) S)
(JRST 0. TAG55)
(PUSH P -19. P)
(HRRZ@ 1. 0. P)
(HLRZ@ 1. 1.)
(PUSH P 1.)
(MOVEI 2. (QUOTE 1.))
(MOVE 1. -20. P)
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG57)
(MOVEI 1. (QUOTE RETURN) S)
(JRST 0. TAG56)
TAG57 (MOVE 1. -20. P)
(CALL 1. (E SUB1) S)
(MOVE 2. 1.)
(MOVEI 1. (QUOTE NEXT) S)
(CALL 2. (E |) S)
TAG56 (CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE GO) S)
(CALL 2. (E XCONS) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E CONDIT) S)
(MOVE 2. -11. P)
(CALL 2. (E CONS) S)
(HRRZ@ 2. -20. P)
(HRRZ@ 2. 2.)
(MOVEM 1. -11. P)
(MOVEM 2. 0. P)
(POP P -20. P)
(JRST 0. TAG52)
TAG55 (HLRZ@ 1. -19. P)
(CAIE 1. (QUOTE WHILE) S)
(JRST 0. TAG60)
(HRRZ@ 1. -19. P)
(HLRZ@ 1. 1.)
(CALL 1. (E NEGATE) S)
(PUSH P 1.)
(MOVEI 2. (QUOTE 1.))
(MOVE 1. -19. P)
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG62)
(MOVEI 1. (QUOTE RETURN) S)
(JRST 0. TAG61)
TAG62 (MOVE 1. -19. P)
(CALL 1. (E SUB1) S)
(MOVE 2. 1.)
(MOVEI 1. (QUOTE NEXT) S)
(CALL 2. (E |) S)
TAG61 (CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE GO) S)
(CALL 2. (E XCONS) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E CONDIT) S)
(MOVE 2. -15. P)
(CALL 2. (E CONS) S)
(HRRZ@ 2. -19. P)
(HRRZ@ 2. 2.)
(MOVEM 1. -15. P)
(MOVEM 2. -19. P)
(JRST 0. TAG52)
TAG60 (JRST 0. TAG3)
TAG52 (JRST 0. TAG2)
TAG3 (MOVE 2. -18. P)
(MOVEI 1. (QUOTE LOOP) S)
(CALL 2. (E |) S)
(CALL 1. (E NCONS) S)
(MOVE 2. -3. P)
(PUSH P 1.)
(MOVE 1. -15. P)
(CALL 2. (E *APPEND) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E *APPEND) S)
(MOVE 2. 1.)
(MOVE 1. -15. P)
(CALL 2. (E *APPEND) S)
(MOVE 2. -18. P)
(MOVEM 1. -3. P)
(MOVEI 1. (QUOTE NEXT) S)
(CALL 2. (E |) S)
(PUSH P 1.)
(MOVE 1. -11. P)
(CALL 1. (E REVERSE) S)
(PUSH P 1.)
(MOVE 1. -13. P)
(CALL 1. (E REVERSE) S)
(MOVE 2. -20. P)
(PUSH P 1.)
(MOVEI 1. (QUOTE LOOP) S)
(CALL 2. (E |) S)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE GO) S)
(CALL 2. (E XCONS) S)
(MOVE 2. -5. P)
(CALL 2. (E CONS) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E *APPEND) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E *APPEND) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(CLEARB 2. -11. P)
(MOVEM 2. -10. P)
(MOVEM 2. -14. P)
(MOVEM 1. -2. P)
(MOVEM 2. -15. P)
(HLRZ@ 1. -19. P)
(CAIE 1. (QUOTE FOR) S)
(JRST 0. TAG67)
(HRRZ@ 1. -19. P)
(MOVEM 1. -19. P)
(MOVE 1. -18. P)
(CALL 1. (E ADD1) S)
(MOVEM 1. -18. P)
(JRST 0. TAG1)
TAG67 (HLRZ@ 1. -19. P)
(MOVEM 1. -5. P)
(MOVE 1. -19. P)
(CALL 1. (E LAST) S)
(HLRZ@ 2. 1.)
(MOVEM 2. -16. P)
(MOVE 2. -1. P)
(MOVEI 1. (QUOTE FOR-VALUE) S)
(CALL 2. (E CONS) S)
(MOVEI 2. (QUOTE FOR-VALUE) S)
(MOVEM 1. -1. P)
(MOVEM 2. 0. P)
(MOVE 1. -5. P)
(CAIE 1. (QUOTE OR) S)
(JRST 0. TAG69)
(MOVE 2. -16. P)
(MOVEI 1. (QUOTE FOR-VALUE) S)
(CALL 2. (E SETIT) S)
(MOVEI 2. (QUOTE (RETURN FOR-VALUE)) S)
(CALL 2. (E CONDIT) S)
(MOVE 3. 1.)
(JRST 0. TAG68)
TAG69 (CAIE 1. (QUOTE AND) S)
(JRST 0. TAG70)
(MOVEI 1. (QUOTE FOR-VALUE) S)
(MOVEI 2. (QUOTE T) S)
(MOVEM 1. -17. P)
(CALL 2. (E SETIT) S)
(MOVE 2. -14. P)
(CALL 2. (E CONS) S)
(MOVE 2. -16. P)
(MOVEM 1. -14. P)
(MOVEI 1. (QUOTE FOR-VALUE) S)
(CALL 2. (E SETIT) S)
(CALL 1. (E NEGATE) S)
(MOVEI 2. (QUOTE (RETURN NIL)) S)
(CALL 2. (E CONDIT) S)
(MOVE 3. 1.)
(JRST 0. TAG68)
TAG70 (MOVEI 2. (QUOTE (PROGN PROG2)) S)
(CALL 2. (E MEMQ) S)
(JUMPE 1. TAG71)
(MOVE 2. -16. P)
(MOVEI 1. (QUOTE FOR-VALUE) S)
(CALL 2. (E SETIT) S)
(MOVE 3. 1.)
(JRST 0. TAG68)
TAG71 (MOVE 1. -5. P)
(CAIE 1. (QUOTE DO) S)
(JRST 0. TAG72)
(MOVE 3. -16. P)
(JRST 0. TAG68)
TAG72 (MOVE 1. -5. P)
(CAIE 1. (QUOTE LIST) S)
(JRST 0. TAG76)
(MOVE 1. -16. P)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE LIST) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE FOR-VALUE) S)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE NCONC) S)
(CALL 2. (E XCONS) S)
(MOVE 2. 1.)
(JRST 0. TAG75)
TAG76 (CAIE 1. (QUOTE NCONC) S)
(JRST 0. TAG77)
(MOVE 1. -16. P)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE FOR-VALUE) S)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE NCONC) S)
(CALL 2. (E XCONS) S)
(MOVE 2. 1.)
(JRST 0. TAG75)
TAG77 (CAIE 1. (QUOTE XLIST) S)
(JRST 0. TAG78)
(MOVEI 1. (QUOTE FOR-VALUE) S)
(CALL 1. (E NCONS) S)
(MOVE 2. -16. P)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE CONS) S)
(CALL 2. (E XCONS) S)
(MOVE 2. 1.)
(JRST 0. TAG75)
TAG78 (CAIE 1. (QUOTE APPEND) S)
(JRST 0. TAG79)
(MOVE 1. -16. P)
(CALL 1. (E MAKEMAKECOPY) S)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE FOR-VALUE) S)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE NCONC) S)
(CALL 2. (E XCONS) S)
(MOVE 2. 1.)
(JRST 0. TAG75)
TAG79 (MOVEI 1. (QUOTE FOR-VALUE) S)
(CALL 1. (E NCONS) S)
(MOVE 2. -16. P)
(CALL 2. (E XCONS) S)
(MOVE 2. -5. P)
(CALL 2. (E XCONS) S)
(MOVE 2. 1.)
TAG75 (MOVEI 1. (QUOTE FOR-VALUE) S)
(CALL 2. (E SETIT) S)
(MOVE 3. 1.)
TAG68 (MOVEM 3. -4. P)
(HRRZ@ 1. -19. P)
(HLRZ@ 2. 1.)
(MOVEM 1. -19. P)
(CAIE 2. (QUOTE FIRST) S)
(JRST 0. TAG83)
(MOVEI 1. (QUOTE FOR-VALUE) S)
(HRRZ@ 2. -19. P)
(HLRZ@ 2. 2.)
(MOVEM 1. -17. P)
(CALL 2. (E SETIT) S)
(MOVE 2. -14. P)
(CALL 2. (E CONS) S)
(HRRZ@ 2. -19. P)
(HRRZ@ 2. 2.)
(MOVEM 1. -14. P)
(MOVEM 2. -19. P)
(JRST 0. TAG82)
TAG83 (MOVEI 2. (QUOTE (PLUS IPLUS TIMES ITIMES MAX MIN)) S)
(MOVE 1. -5. P)
(CALL 2. (E MEMQ) S)
(JUMPE 1. TAG84)
(MOVEI 1. (QUOTE FOR-VALUE) S)
(MOVEI 2. (QUOTE ((PLUS . 0.) (MAX . -99999.) (MIN . 99999.) (IPLUS . 0.) (TIMES . 1.) (ITIMES . 1.))) S)→
(MOVEM 1. -17. P)
(MOVE 1. -5. P)
(CALL 2. (E ASSOC) S)
(HRRZ@ 2. 1.)
(MOVE 1. -17. P)
(CALL 2. (E SETIT) S)
(MOVE 2. -14. P)
(CALL 2. (E CONS) S)
(MOVEM 1. -14. P)
TAG84
TAG82 (MOVE 1. -3. P)
(CALL 1. (E REVERSE) S)
(PUSH P 1.)
(MOVE 1. -20. P)
(CALL 1. (E REVERSE) S)
(HRRZ@ 1. 1.)
(CALL 1. (E REVERSE) S)
(PUSH P 1.)
(MOVE 1. -6. P)
(CALL 1. (E NCONS) S)
(PUSH P 1.)
(MOVE 1. -3. P)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE RETURN) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE RETURN) S)
(CALL 2. (E XCONS) S)
(MOVE 2. 1.)
(MOVE 1. -5. P)
(CALL 2. (E *APPEND) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E *APPEND) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E *APPEND) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E *APPEND) S)
(MOVE 2. 1.)
(MOVE 1. -14. P)
(CALL 2. (E *APPEND) S)
(MOVE 2. -1. P)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE PROG) S)
(SUB P (C 20. 0. 20. 0.))
(JCALL 2. (E XCONS) S)
NIL
(LAP | SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P (C 0. 0. TAG1 0.))
(CALL 1. (E EXPLODE) S)
(PUSH P 1.)
(EXCH 1. -2. P)
(CALL 1. (E EXPLODE) S)
(MOVEI 2. (QUOTE *) S)
(CALL 2. (E XCONS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG1 (SUB P (C 2. 0. 2. 0.))
(JCALL 1. (E READLIST) S)
NIL
(LAP CONDIT SUBR)
(PUSH P 1.)
(MOVE 1. 2.)
(CALL 1. (E NCONS) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE COND) S)
(JCALL 2. (E XCONS) S)
NIL
(LAP SETIT SUBR)
(PUSH P 1.)
(PUSH P 2.)
(CALL 2. (E EQUAL) S)
(JUMPN 1. TAG2)
(MOVE 1. 0. P)
(CALL 1. (E NCONS) S)
(MOVE 2. -1. P)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE SETQ) S)
(CALL 2. (E XCONS) S)
(JRST 0. TAG1)
TAG2 (MOVEI 1. (QUOTE NIL))
TAG1 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP NEGATE SUBR)
(PUSH P 1.)
(MOVEI 2. (QUOTE (NOT NULL)) S)
(HLRZ@ 1. 1.)
(CALL 2. (E MEMQ) S)
(JUMPE 1. TAG2)
(HRRZ@ 1. 0. P)
(HLRZ@ 1. 1.)
(JRST 0. TAG1)
TAG2 (MOVE 1. 0. P)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE NOT) S)
(CALL 2. (E XCONS) S)
TAG1 (SUB P (C 1. 0. 1. 0.))
(POPJ P)
NIL
(LAP *IF SUBR)
(JSP 6. SPECBIND)
(0. 1. (SPECIAL *IF'SL) S)
(JUMPE 1. TAG2)
(HLRZ@ 1. 1.)
(PUSH P 1.)
(HRRZ@ 1. (SPECIAL *IF'SL) S)
(HLRZ@ 1. 1.)
(CAIN 1. (QUOTE THEN) S)
(JRST 0. TAG4)
(MOVEI 2. (QUOTE "NO CORRESPONDING THEN IN IF") S)
(MOVE 1. (SPECIAL *IF'SL) S)
(CALL 2. (E ERROR) S)
(MOVE 2. 1.)
(JRST 0. TAG3)
TAG4 (HRRZ@ 1. (SPECIAL *IF'SL) S)
(HRRZ@ 1. 1.)
(MOVEM 1. (SPECIAL *IF'SL) S)
(CALL 0. (E THENCLAUSE) S)
(MOVE 2. 1.)
TAG3 (POP P 1.)
(CALL 2. (E CONS) S)
(PUSH P 1.)
(MOVE 2. (SPECIAL *IF'SL) S)
(JUMPE 2. TAG8)
(HLRZ@ 1. 2.)
(CAIE 1. (QUOTE ELSEIF) S)
(JRST 0. TAG9)
(HRRZ@ 1. 2.)
(CALL 1. (E *IF) S)
(MOVE 2. 1.)
(JRST 0. TAG8)
TAG9 (HRRZ@ 1. 2.)
(MOVEM 1. (SPECIAL *IF'SL) S)
(HLRZ@ 1. 1.)
(CAIE 1. (QUOTE IF) S)
(JRST 0. TAG10)
(HRRZ@ 1. (SPECIAL *IF'SL) S)
(CALL 1. (E *IF) S)
(MOVE 2. 1.)
(JRST 0. TAG8)
TAG10 (CALL 0. (E THENCLAUSE) S)
(MOVEI 2. (QUOTE T) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(MOVE 2. 1.)
TAG8 (POP P 1.)
(CALL 2. (E CONS) S)
(JRST 0. TAG1)
TAG2 (MOVEI 1. (QUOTE NIL))
TAG1 (JRST 0. SPECSTR)
NIL
(LAP THENCLAUSE SUBR)
(MOVE 1. (SPECIAL *IF'SL) S)
(JUMPE 1. TAG4)
(MOVEI 2. (QUOTE (ELSE ELSEIF)) S)
(HLRZ@ 1. 1.)
(CALL 2. (E MEMQ) S)
(JUMPE 1. TAG2)
TAG4 (MOVEI 1. (QUOTE NIL))
(CALL 1. (E NCONS) S)
(JRST 0. TAG1)
TAG2 (HRRZ@ 1. (SPECIAL *IF'SL) S)
(JUMPE 1. TAG8)
(MOVEI 2. (QUOTE (ELSE ELSEIF)) S)
(HRRZ@ 1. (SPECIAL *IF'SL) S)
(HLRZ@ 1. 1.)
(CALL 2. (E MEMQ) S)
(JUMPE 1. TAG6)
TAG8 (HLRZ@ 1. (SPECIAL *IF'SL) S)
(CALL 1. (E NCONS) S)
(HRRZ@ 2. (SPECIAL *IF'SL) S)
(MOVEM 2. (SPECIAL *IF'SL) S)
(JRST 0. TAG1)
TAG6 (HRRZ@ 1. (SPECIAL *IF'SL) S)
(PUSH P (SPECIAL *IF'SL) S)
(MOVEM 1. (SPECIAL *IF'SL) S)
(HLRZ@ 1. 0. P)
(MOVEM 1. 0. P)
(CALL 0. (E THENCLAUSE) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
TAG1 (POPJ P)
NIL
(LAP QUOTEIT1 SUBR)
(PUSH P 1.)
(PUSH P 2.)
(JUMPE 1. TAG4)
(CALL 1. (E NUMBERP) S)
(JUMPN 1. TAG4)
(MOVE 1. -1. P)
(CAIE 1. (QUOTE T) S)
(JRST 0. TAG2)
TAG4 (MOVE 1. -1. P)
(JRST 0. TAG1)
TAG2 (MOVE 2. 0. P)
(MOVE 1. -1. P)
(CALL 2. (E QUOTEIT2) S)
(MOVEM 1. 0. P)
(JUMPE 1. TAG6)
(JRST 0. TAG1)
TAG6 (MOVE 1. -1. P)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE QUOTE) S)
(CALL 2. (E XCONS) S)
TAG1 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP QUOTEIT2 SUBR)
(PUSH P 1.)
(PUSH P 2.)
(CALL 1. (E ATOM) S)
(JUMPE 1. TAG2)
(MOVEI 1. (QUOTE NIL))
(JRST 0. TAG1)
TAG2 (HLRZ@ 1. -1. P)
(CAIE 1. (QUOTE ¬) S)
(JRST 0. TAG3)
(HRRZ@ 1. -1. P)
(CALL 1. (E ATOM) S)
(JUMPE 1. TAG5)
(HRRZ@ 1. -1. P)
(JRST 0. TAG4)
TAG5 (HRRZ@ 1. -1. P)
(HRRZ@ 1. 1.)
(JUMPN 1. TAG6)
(HRRZ@ 1. -1. P)
(HLRZ@ 1. 1.)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE LIST) S)
(CALL 2. (E XCONS) S)
(JRST 0. TAG4)
TAG6 (HRRZ@ 1. -1. P)
(HRRZ@ 1. 1.)
(CALL 1. (E QUOTEIT1) S)
(HRRZ@ 2. -1. P)
(HLRZ@ 2. 2.)
(PUSH P 1.)
(PUSH P 2.)
(HLRZ@ 1. 1.)
(CAIE 1. (QUOTE LIST) S)
(JRST 0. TAG11)
(HRRZ@ 2. -1. P)
(MOVE 1. 0. P)
(CALL 2. (E CONS) S)
(MOVEI 2. (QUOTE LIST) S)
(CALL 2. (E XCONS) S)
(JRST 0. TAG10)
TAG11 (MOVE 1. -1. P)
(CALL 1. (E NCONS) S)
(MOVE 2. 0. P)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE CONS) S)
(CALL 2. (E XCONS) S)
TAG10 (SUB P (C 2. 0. 2. 0.))
TAG4 (JRST 0. TAG1)
TAG3 (HRRZ@ 1. -1. P)
(JUMPN 1. TAG14)
(HLRZ@ 1. -1. P)
(CALL 2. (E QUOTEIT2) S)
(MOVEM 1. 0. P)
(JUMPE 1. TAG17)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE LIST) S)
(CALL 2. (E XCONS) S)
(JRST 0. TAG16)
TAG17 (MOVEI 1. (QUOTE NIL))
TAG16 (JRST 0. TAG1)
TAG14 (MOVE 2. 0. P)
(HLRZ@ 1. -1. P)
(CALL 2. (E QUOTEIT2) S)
(MOVE 2. 0. P)
(PUSH P 1.)
(HRRZ@ 1. -2. P)
(CALL 2. (E QUOTEIT2) S)
(MOVEM 1. -1. P)
(MOVE 1. 0. P)
(JUMPN 1. TAG27)
(MOVE 1. -1. P)
(JUMPE 1. TAG23)
TAG27 (MOVE 1. 0. P)
(JUMPN 1. TAG31)
(HLRZ@ 1. -2. P)
(MOVEM 1. 0. P)
(JUMPE 1. TAG31)
(CALL 1. (E NUMBERP) S)
(JUMPN 1. TAG31)
(MOVE 1. 0. P)
(CAIN 1. (QUOTE T) S)
(JRST 0. TAG31)
(MOVE 1. 0. P)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE QUOTE) S)
(CALL 2. (E XCONS) S)
(MOVEM 1. 0. P)
TAG31 (HLRZ@ 1. -1. P)
(CAIE 1. (QUOTE LIST) S)
(JRST 0. TAG38)
(HRRZ@ 2. -1. P)
(MOVE 1. 0. P)
(CALL 2. (E CONS) S)
(HLRZ@ 2. -1. P)
(CALL 2. (E XCONS) S)
(JRST 0. TAG37)
TAG38 (PUSH P 0. P)
(MOVE 1. -2. P)
(JUMPN 1. TAG42)
(HRRZ@ 1. -3. P)
(MOVEM 1. -2. P)
(JUMPE 1. TAG42)
(CALL 1. (E NUMBERP) S)
(JUMPN 1. TAG42)
(MOVE 1. -2. P)
(CAIN 1. (QUOTE T) S)
(JRST 0. TAG42)
(MOVE 1. -2. P)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE QUOTE) S)
(CALL 2. (E XCONS) S)
(JRST 0. TAG41)
TAG42 (MOVE 1. -2. P)
TAG41 (CALL 1. (E NCONS) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE CONS) S)
(CALL 2. (E XCONS) S)
TAG37 (JRST 0. TAG22)
TAG23 (MOVEI 1. (QUOTE NIL))
TAG22 (SUB P (C 1. 0. 1. 0.))
TAG1 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP FULLEXPANSION SUBR)
(PUSH P 1.)
(MOVEI 2. (QUOTE (CAAR CADR CDAR CDDR CDDAR CDDDR CDDDAR CDDDDR CADDAR CADDDR CADAR CADDR CDADAR CDADDR C→
AADAR CAADDR CDAAR CDADR CDDAAR CDDADR CADAAR CADADR CAAAR CAADR CDAAAR CDAADR CAAAAR CAAADR)) S)
(HLRZ@ 1. 1.)
(CALL 2. (E MEMQ) S)
(JUMPE 1. TAG2)
(HLRZ@ 1. 0. P)
(CALL 1. (E EXPLODE) S)
(PUSH P 1.)
(MOVEI 1. (QUOTE R) S)
(CALL 1. (E NCONS) S)
(HRRZ@ 2. 0. P)
(HLRZ@ 2. 2.)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE C) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E READLIST) S)
(MOVEM 1. 0. P)
(HLRZ@ 1. -1. P)
(CALL 1. (E EXPLODE) S)
(HRRZ@ 2. 1.)
(HRRZ@ 2. 2.)
(MOVEI 1. (QUOTE C) S)
(CALL 2. (E CONS) S)
(CALL 1. (E READLIST) S)
(PUSH P 1.)
(HRRZ@ 1. -2. P)
(HLRZ@ 1. 1.)
(CALL 1. (E NCONS) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(JRST 0. TAG1)
TAG2 (MOVEI 2. (QUOTE MACRO) S)
(HLRZ@ 1. 0. P)
(CALL 2. (E GET) S)
(JUMPE 1. TAG3)
(PUSH P (C 0. 0. TAG4 0.))
(HLRZ@ 1. -1. P)
(CALL 2. (E GET) S)
(PUSH P 1.)
(MOVE 1. -2. P)
(CALL 1. (E NCONS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E APPLY) S)
TAG4 (CALL 1. (E FULLEXPANSION) S)
(JRST 0. TAG1)
TAG3 (MOVE 1. 0. P)
TAG1 (SUB P (C 1. 0. 1. 0.))
(POPJ P)
NIL
(LAP DEFAULT SUBR)
(MOVE 1. 2.)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE RECDEFAULT) S)
(JCALL 2. (E DEFLIST) S)
NIL
(LAP GSET SUBR)
(PUSH P 1.)
(PUSH P 2.)
(MOVEI 2. (QUOTE SPECIAL) S)
(CALL 2. (E GET) S)
(JUMPN 1. TAG1)
(MOVEI 3. (QUOTE SPECIAL) S)
(MOVEI 2. (QUOTE T) S)
(MOVE 1. -1. P)
(CALL 3. (E PUTPROP) S)
TAG1 (POP P 2.)
(POP P 1.)
(JCALL 2. (E SET) S)
NIL
(LAP ADVISE SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(CALL 1. (E ARGLIST) S)
(PUSH P -2. P)
(PUSH P 1.)
(MOVE 1. -3. P)
(CAIE 1. (QUOTE BIND) S)
(JRST 0. TAG2)
(MOVE 2. -2. P)
(JRST 0. TAG1)
TAG2 (MOVEI 2. (QUOTE NIL))
TAG1 (MOVEI 1. (QUOTE !VALUE) S)
(CALL 2. (E CONS) S)
(PUSH P 1.)
(MOVE 1. -4. P)
(CAIE 1. (QUOTE BEFORE) S)
(JRST 0. TAG6)
(MOVE 1. -3. P)
(JRST 0. TAG5)
TAG6 (MOVEI 1. (QUOTE NIL))
TAG5 (PUSH P 1.)
(MOVE 1. -6. P)
(CALL 1. (E ARGLIST) S)
(MOVE 2. 1.)
(EXCH 1. -6. P)
(CALL 2. (E SAVEFN1) S)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE RETURN) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE NIL))
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE PROG) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE !VALUE) S)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE SETQ) S)
(CALL 2. (E XCONS) S)
(MOVEM 1. -5. P)
(MOVE 1. -4. P)
(CAIE 1. (QUOTE AFTER) S)
(JRST 0. TAG10)
(MOVE 1. -3. P)
(JRST 0. TAG9)
TAG10 (MOVEI 1. (QUOTE NIL))
TAG9 (MOVEM 1. -4. P)
(MOVEI 1. (QUOTE (RETURN !VALUE)) S)
(CALL 1. (E NCONS) S)
(MOVE 2. -4. P)
(CALL 2. (E XCONS) S)
(MOVE 2. -5. P)
(CALL 2. (E XCONS) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE PROG) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE LAMBDA) S)
(CALL 2. (E XCONS) S)
(MOVEI 3. (QUOTE EXPR) S)
(MOVE 2. 1.)
(POP P 1.)
(SUB P (C 3. 0. 3. 0.))
(JCALL 3. (E PUTPROP) S)
NIL
(LAP ADVISE1 SUBR)
(PUSH P 3.)
(PUSH P 1.)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P 4.)
(CAIE 2. (QUOTE BIND) S)
(JRST 0. TAG2)
(MOVE 2. 4.)
(JRST 0. TAG1)
TAG2 (MOVEI 2. (QUOTE NIL))
TAG1 (MOVEI 1. (QUOTE !VALUE) S)
(CALL 2. (E CONS) S)
(PUSH P 1.)
(MOVE 1. -3. P)
(CAIE 1. (QUOTE BEFORE) S)
(JRST 0. TAG6)
(MOVE 1. -1. P)
(JRST 0. TAG5)
TAG6 (MOVEI 1. (QUOTE NIL))
TAG5 (MOVE 2. -2. P)
(EXCH 1. -4. P)
(CALL 2. (E SAVEFN1) S)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE RETURN) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(MOVE 2. -4. P)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE NIL))
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE PROG) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE !VALUE) S)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE SETQ) S)
(CALL 2. (E XCONS) S)
(MOVEM 1. -4. P)
(MOVE 1. -3. P)
(CAIE 1. (QUOTE AFTER) S)
(JRST 0. TAG10)
(MOVE 1. -1. P)
(JRST 0. TAG9)
TAG10 (MOVEI 1. (QUOTE NIL))
TAG9 (MOVEM 1. -3. P)
(MOVEI 1. (QUOTE (RETURN !VALUE)) S)
(CALL 1. (E NCONS) S)
(MOVE 2. -3. P)
(CALL 2. (E XCONS) S)
(MOVE 2. -4. P)
(CALL 2. (E XCONS) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE PROG) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(MOVE 2. -5. P)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE LAMBDA) S)
(CALL 2. (E XCONS) S)
(MOVEI 3. (QUOTE EXPR) S)
(MOVE 2. 1.)
(EXCH 1. -4. P)
(SUB P (C 6. 0. 6. 0.))
(JCALL 3. (E PUTPROP) S)
NIL
(LAP SAVEFN1 SUBR)
(PUSH P 1.)
(PUSH P 2.)
(CALL 0. (E GENSYM) S)
(CALL 1. (E INTERN) S)
(PUSH P 1.)
(MOVEI 2. (QUOTE EXPR) S)
(MOVE 1. -2. P)
(CALL 2. (E GET) S)
(JUMPE 1. TAG5)
(MOVE 1. -2. P)
(CALL 2. (E GET) S)
(MOVEI 3. (QUOTE EXPR) S)
(EXCH 2. 1.)
(MOVE 1. 0. P)
(CALL 3. (E PUTPROP) S)
(JRST 0. TAG4)
TAG5 (MOVEI 2. (QUOTE SUBR) S)
(MOVE 1. -2. P)
(CALL 2. (E GET) S)
(JUMPE 1. TAG6)
(MOVE 1. -2. P)
(CALL 2. (E GET) S)
(MOVEI 3. (QUOTE SUBR) S)
(EXCH 2. 1.)
(MOVE 1. 0. P)
(CALL 3. (E PUTPROP) S)
TAG6
TAG4 (MOVE 2. -1. P)
(MOVE 1. 0. P)
(SUB P (C 3. 0. 3. 0.))
(JCALL 2. (E CONS) S)
NIL
(LAP ARGLIST SUBR)
(PUSH P 1.)
(MOVEI 2. (QUOTE ARGLIST) S)
(CALL 2. (E GET) S)
(JUMPN 1. TAG1)
(MOVE 1. 0. P)
(CALL 1. (E PRINT) S)
(MOVEI 1. (QUOTE / ARGLIST?) S)
(CALL 1. (E PRINC) S)
(CALL 0. (E READ) S)
(MOVEI 3. (QUOTE ARGLIST) S)
(MOVE 2. 1.)
(MOVE 1. 0. P)
(CALL 3. (E PUTPROP) S)
TAG1 (SUB P (C 1. 0. 1. 0.))
(POPJ P)
NIL
(LAP NARGS SUBR)
(PUSH P 1.)
(MOVEI 2. (QUOTE EXPR) S)
(CALL 2. (E GET) S)
(JUMPE 1. TAG2)
(MOVE 1. 0. P)
(CALL 2. (E GET) S)
(CALL 1. (E CADR) S)
(CALL 1. (E LENGTH) S)
(JRST 0. TAG1)
TAG2 (MOVEI 1. (QUOTE 5.))
TAG1 (SUB P (C 1. 0. 1. 0.))
(POPJ P)
NIL
(LAP FIRSTN SUBR)
(PUSH P 1.)
(PUSH P 2.)
(MOVEI 2. (QUOTE 0.))
(MOVE 1. 0. P)
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG2)
(MOVEI 1. (QUOTE NIL))
(JRST 0. TAG1)
TAG2 (HRRZ@ 1. -1. P)
(PUSH P 1.)
(HLRZ@ 1. -2. P)
(PUSH P 1.)
(MOVE 1. -2. P)
(CALL 1. (E SUB1) S)
(MOVE 2. 1.)
(EXCH 1. -1. P)
(CALL 2. (E FIRSTN) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(SUB P (C 1. 0. 1. 0.))
TAG1 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL